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THIS *prograa* will allow you to use SMART I! software with the 
AERCO Interface and an Epson printer, Gesini printer, and 
Gorilla Banana printer, (Other eodels have not been tested, but 


siailar sodels should work). Try it and let SINCUS NEWS know 
hou it worked. 


100 INPUT "DO YOU HAVE MTERM CO 
DE LORDED^?"'" yes sno 


;ns 

110 IF el ee hs THEN GO TO 4000 
120 PRI “PLEASE LORD MTERH CO 

DE ane hall 


TO 
4000 RESTORE 4100 
4010 FOR f 259173 TO 39175 
4020 ee iri 4500 


NE 
4040 FOR f 259188 TO 59190 
4050 GO SUB 4500 

NEXT f 


4060 

4070 FOR r(s=58618 TO 58833 

4088 GO SUB 4500 

4090 NEXT ! 

4092 PRINT ''''''"SRUE YOUR ALTE 
RED MTERM ON TAPE" 

4093 PRINT ''' 


4094 PRINT "DAVE SCHOENUETTER" 
4098 PRINT "1338 FARM TO MARKET 


RD. 
4096 PRINT "ENDUELL, NEU YORK,.1 
4099 PRINT '''"att LE STOP 


108 DATA 75,236,238,3 
8 DATA 125,185,32,7 
DATA 12 
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GO SUB 410 
REM #4% Z tk 
Ren BY KEIT APINSKI 


fa] 
H 
FOR izUSR "a" TO USR "b"47 
READ a: POKE i,a: NEXT i 
0,255,0,255,0,255, 
,96,189,173,285,36,36,102 
ET hed 


MBIE 
SK 


e 
` 


DGDPOF Verses O08 JAAGPowr 


J 


1 š 
;, PRINT “Difficult 
-3)^''"1zEasy 3sHard" 
q$«" 
c 


oe 2 
Dip, PRA 
"9 
^ 
r 
c 


ET INKEY$: IF 
MEE i 


Uz (URL +2) 7/5: 
X218: LET ysi6: LET asS 


vo rror=orr 


Hon 
P 
a 


NT _ "ARARARAAARARARARAAAAR 
ARAARARARARAR" 


FOR isi TO 19: PRINT AT i,@ 


ee 


, 
oA": i 
@ PRINT "“ARARAARARARAARAAAAAARA 
ARAARARARAAAR" 
179 POR ize TO 18 STEP 2: PRINT 
AT i, Ea RAA, AAA. AAAA «AAAs RR 


R 

180 PRINT AT x,y;"Q": PRINT RT 
a,b; OVER 1;"B" 

iU IF azx AND bay THEN GO TO 3 
200 IF s/372*INT (8/7372) THEN B 
: LET $ss41: GO TO 120 
210 LET xizsx: LET yisy: LET ais 
: LET bisb 


° eee 


= 

220 LET xzx«(INKEYSz'"6" OR IN 3 
1sz4) - (INKEYS2s"7" OR IN 3128) 

230 LET yzy«(INKEY$z"8" OR 3 
1z1)-(I "E" OR IN Size 


NK z ) 
240 IF CODE SCREENS (xy) =@ THE 
N LET xaxi: LET yayi: BEEP 


9 

250 IF SCREENS (x,y) ="." THEN L 
ET s=8+1: BEEP .Q001,80 

260 IF RND«l THEN LET asa+(x>a) 
-(x«a): IF CODE SCREENS (à,b)s0 
THEN LET 3281 
270 IF RND<t THEN LET diee (pop) 

s 


-(y«b): IF CODE SCREENS (a,b 
THEN LET bsbi 

280 IF soh THEN LET hes 

290 PRINT AT 21,0; INK 2; INVER 
SE i1;" SCORE: "js,"MI-SCÓRE: "; 

"e 

300 PRINT AT ai,bi; OVER 1;"8" 

310 PRINT AT xivyii" " 

320 GO TO 18 

330 PRINT AT. 10,10; FLASH 1;" G 
AME OUER " 

340 BEEP 1,0: BEEP 1,0: BEEP..1 
0: BEEP 1,0: BEEP 1,3: BEEP .5, 
$: BEEP 10: BEEP .5,-1: BEEP i, 
35@ DIM a$(794): FOR i=Q TO 7: 
BEEP .QQ1,i44Q0: PRINT AT 0,0; IN 

K i; OVER 1;a8: NEXT i 

360 CLS 

370 PRINT AT 10,1, FLASH 1;" PR 
BS ANY KEY FOR ANOTHER GO " 


IF GO Hd S i THEN OUT 254,R 


10 CLS_: PRINT AT 10,5; "KEMPST 
EN COMPATABLE": PAUSE 1850 

420 RETURN 
430 CLEAR : RANDOMIZE USR 1009: 


OPEN &4,"dd"- PRINT #4: SAVE "ZO 
MBIE.BR" I 


"ANAGRAM" 


This program will make GOOD and 
BAD Anagrams of words you Input. 
It will fit in 1K. 

Created by: Jody Koenig; Decorah, 
Iowa. 


1 REM ANAGRAM 
10 INPUT A$ 
15 DIM D(LEN A$) 
17 LET A=1 
20 FOR C=1 TO LEN A$ 
re LET X=INT (1*LEN A$*RND) 

FOR B=1 TO LEN A$ 

50 IF X=D(B) THEN GOTO 30 
60 NEXT B 
70 PRINT A$(X) 
72 LET D(A)=X 
75 LET A-A*1 
80 NEXT C 
85 PRINT 
90 GOTO 15 


"RENUMBERING ROUTINE" 


Attach these lines to the end of a 
basic program. Enter GOTO 9991- in 
the immediate mode - and the com- 
puter will renumber any basic pro- 
gram counting in intervals of 5. 


If you wish to change the numbering 
interval, change the value of N and 


the 5 in line 9995. 


Remember to change GOTOs and GOSUBs 


after the program has been renum- 

bered. 

.Created by: Steven Kaye; Submitted 
by and with permission from the ZX 
USERS Group of New York. 


9991 LET B=16509 

9992 LET N=5 

9993 POKE B,INT (N/256) . f 
9994 POKE B+1,N-256*IHT (N/256) 
9995 LET N-N*5 I 
. 9996 LET B-B*1 

9997 IF 256*PEEK B+PEEK (B*1)-29990 
THEN STOP 

9998 IF PEEK (B-1)=118 THEN GOTO 9 


9999 GOTO 9996 


"BINARY CHARACTER PEEKER" 


This program will print out the 
Binary Representation (and equal 
Decimal number) of Eight Consecu- 
tive Addresses, a GOOD use for this 
is to see how characters are held 
in the ROM, for example Input Add- 
ress "8000" to see how the letter 
"C" is formed (as seen by the Dec- 
imal 1's). 

Created by: Jody Koenig; Decorah, 
Iowa. 


10 PRINT "ENTER STARTING ADDRESS" 
15 PRINT Suis 
20 INPUT A 

4O FOR F=A TO A*7 

50 LET B-PEEK F 

52 LET D-B 

55 LET 07128. 

60 PRINT F;"="; 

70 FOR G=1 TO 8 

80 PRINT CHR$((B> =U) +28); 

90 IF B>=C THEN LET B=B-C 

100 LET c=U/2 

110 NEXT G 

120 PRINT "=";D 

130 NEXT F 

140 INPUT A$ 

150 CLS 

160 «UN 


ENTER STARTING ADDRESS 


8000=00000000=0 

8001=00111100=60 
8002=01000010=66 
8003 01000000=64 
8004 --01000000=64 
8005.01000010266 
8000 00111100760 
8007 0000000070 


LIST. 
LIS 


E M RIA 


"64 CHARACTERS" 
AND A CLEAR SCREEN 


Use this program in conjunction 
with your users manual. This is the 
way you begin to work with 64 char- 
acters on the screen. You need to 
shuffle everything around inside 
the computer's RAM memory and that 
is exactly what this routine does. 
Follow the prompts in the REM state- 
ments and you should not have any 
troubles. : 
Created by: Doug Dewey of Triangle 
Users Group, North Carolina; 
Submitted by and with permission 
from the ZX USERS Group of New York. 


1 REM This program allows the user 
to reallocate various different 
components of RAM memory and make 
way for a clear screen in the 64- 
character mode. See page 254 for 
the different display file/memory 
maps and pages 247 and 248 for the 
codes for variable b. 

2 REM Call this routine by PRINT 
USR 63000 | 

5 CLEAR 62999 : 

7 PRINT "Please input b": INPUT b 
10 LET a=63000 
20 READ n: POKE a,n 

O LET a-a*1: GOTO 20 

O DATA 243,62,1,211,244,219,255,2 
03,255,211,255,62,b,245,251,205,14 
2,14, 243,219,255,203,191,211,255,1 
75,211,244 , 241 ,254,128,3,2,3,50,19 
4,92,251,201 


“MOSAIC CURTAIN” 


Are you tired of BLANK screens at 
the end of your programs? This 
little routine at the end of your 
program will give you a very PLEA-: 
SANT and ATTRACTIVE SCREEN. 

(g means a graphic character "8"). 
From Synapse of Central PA. TS t 
USERS Group; Submitted by and with 
permission from the ZX USERS Group 
of New York. 


10 FOR x=1 TO 704: LET i-RND*5*1: I 
NK i: PRINT "g"; l 
20 NEXT X 

25 PAUSE 60: CLS: GOTO 10 


"GRAPH 16K" 


Here is a program to draw a bar graph 
When it runs, you must enter 20 num- 
bers, greater than 0 but less than 40 
My goal in writing the program was to 
keep it as short as possible, thus it 
doesn't offer fancy borders, variable 
range for numbers etc. The program 
illustrates a plotting technique you 
can use in other programs. 

From: Sinclair/Timex Users Group of 
Boston, Massachusetts; Submitted by 
and with permission from the ZX USERS 
Group of New York. 


10 REM *** TS1000 GRAPH PROGRAM 
20 LET Y=4 

30 DIM A(40) 

ho FOR T-1 TO 20 

50 INPUT A(T) 

60 NEXT T 

70 LET T=1 

80 FOR Z-1 TO 20 

90 FOR R=1 TO A(T) 

100 PLOT Y,R 

110 NEXT R 

120-LET T=T+1 

130 LET Y=Y+2 

140 NEXT Z 

150 PRINT AT 16,0;"10" 
160 PRINT AT 11,0;"20" 
170 PRINT AT 6,0;"30" 
180 PRINT AT 1,0;"40" 


Long Istand Sinclair Timex Group 


^^^ 
eS ^ 


A NS ^N a 


^N aA G^ 
^^^ 
A A A AA & A NON NAN A LA ^ ^ ^ A UA ^ 


"A HEADER PROGRAM FOR" 
ZX-81&TS-1000 


When I got my TS-2068 I thought one 
of the marvellous things about it 
was a Header program by which one 
could get the name of a program 
displayed on-screen a few seconds 
after it started loading. If only 
the ZX-81 had that feature it 
would be marvellous, I thought. 
Where have I been all this time? 

I have only just discovered there 
is a program to do practically the 
same thing. It is to be found in 
Mike Lord's book "Explorers guide 
to the ZX-81". How I ever spotted 
it I will never know. 

With the thought there must be many 
in the same position as myself, I 
would like to present this practi- 
Cal program. 

It is a M/C routine that is placed 
in a REM statement at the beginning 
of a short Basic program. First 
create a REM statement of 66 spaces 
(or more) then enter the lines as 
shown in Fig. 1. Put your computer 
in the FAST mode, RUN the program 
and enter the numbers in Fig. 2 
starting with the top row, left to 
right. When you are done check that 
the sum of the numbers is 7620. 
Then delete a11 lines except the 
line 1. containing the REM state- 
ment. 

Enter the lines in Fig. 3. SAVE 
this program, since this is the 
program you will use to obtain 
HEADER information from your other 
program tapes. 

When you RUN this program, it will 
prompt you to start playing the 
tape which you wish to identify. 

At the: start of the LOADing of a 
tape the program name under which : 
it was SAVEd will appear on the 
Screen. Any other program appear- 
ing on the tape will be similarly ' 
identified. 

Written byi:G.F. Chambers; Canada, 
Submitted by: ZX users Group of 
New York. 


Fig 1) 


1»REM 122556789012345678901234567 
890123456789012 3456789012 345678901 


23456 

10 FOR I=16514 TO 16579 
20 INPUT A 

30 POKE I,A 

40 PRINT " 

50 PRINT I;" ", 
60 NEXT I 

70 PRINT "FINISHED" 

110 PRINT "PRESS A KEY TO CHECK " 
120 IF. INKEY$-"" THEN GOTO 120 
130 LET TOTAL=0 

140 FOR I=16514 TO 16579 

150 LET X=PEEK I 

160 LET TOTAL=TOTAL+X 

170 NEXT I 

180 PRINT TOTAL 


40 SCROLL á 
A 


Fig 2) 
205 35 15 205 136 64 
24 251 14 1 6 0 


Pig 2) 

1>REM LN 7?LN wRND/ CLS :” a YU) = RE 

TURN 3**5(( PRINT LET LN «RND?NOT À 

CS ?C RUN LN F?TAN STR$ 2&7,1 -RETU 

RN*ACS ??5 PRINT (PRINT SGN he RETU 

RN*KEXP ZACS)KTAN TAN 

20 PRINT " 20 RAND USR 16514" 

20 PRINT AT 20,0;"PRESS A KEY TO RE 

AD TAPE" 

40 IF INKEY$-" THEN GOTO 40 
CLS 

60 GOTO 20 

100 SAVE "HEADER READE(]' 

110 GOTO 30 


ka) “PEARCE DOVE WINS!” 
A 


nfl “BAM THE BOMB & 
SPRE IEAPONSI 


"SECRET WRITING MACHINE" 


This program was converted from 
Microsoft BASIC. It turns your com- 
puter into a secret writing machine, 
using a simple and ancient crypto- 
graphic technique known as the 
Caeser cipher. For example, with a 
key of 3, the message: THE APPLES 
ARE RIPE becomes the encoded mess- 
age: WKH DSSOHV DUH ULSH. 

Load it in your ZX-81, T/S-1000 and 
Explore the craft of cryptography! 
Have Fun. 

Created by: G. Stewart; Revised by: 
E.J. D'Urbano; Submitted by and 
with permission from the ZX USERS 
Group of New York. 


10 LET LB=38 

20 LET UB=63 

30 PRINT TAB 5;"SECRET WRITING MACH 
INE" 

31 PRINT TAB 5 | | Se ERA 
-— ‘ 

40 PRINT 

100 PRINT "ENTER THE KEY (1-25)"; 
101 INPUT K 

102 PRINT K 

103 PRINT 

110 IF K«1 OR K>25 THEN GOTO 100 
200 PRINT "ENTER E TO ENCODE OR D T 
O DECODE "; 

201 INPUT C$ 

202 PRINT C$ 

203 PRINT l 

210 IF C$<>"E" AND C$<>"D" THEN GOT 
O 200 ; 

300 PRINT "ENTER THE MESSAGE: " 

301 FAST 

302 PRINT 

310 INPUT M$ 

311 PRINT M$ 

312 PRINT 

320 IF M$="" THEN GOTO 300 

330 SLOW 

400 FOR P=1 TO LEN (Mj) 

410 LET X$=M$(P TO P+1-1) f 
420 IF X$>="A" AND X$<="Z" THEN GOT 
O 500 I 

430 LET Y$=X$ 

440 GOTO 600 

500 IF C$="D" THEN GOTO 540 

510 LET YP-CODE (X$)*K | 

520 IF YP>UB THEN LET YP:yYp-2 

530 GOTO 560 

540 LET YP=CODE (X$)-K 


550.IF YP«LB THEN LET YP=YP+26 
560 LET Y$-CHR$ (YP) 

600 PRINT Y$; 

700 NEXT F 

800 PRINT 

801 :PRINT 

810 PRINT "DONE" 

820 STOP 


"AX-81 FAST-TYPE" 


This short program enables 2X-81 
users to clear the screen when full 
during entry of long programs thus 
preventing the whole screen from 
being rewritten each time a new line 
is entered. 

Created by Demetre from U.K.; Sub- 
mitted by and with permission from 
the ZX USERS Group of New York. 


Enter these lines first: 

CLS ' 

PRINT "ENTER LAST LINE NO. " 
INPUT LL 

POKE 16419,LL-INT (LL/256)*256 
POKE 16420,INT (LL/256) 

LIST IL . 

STOP 


When screen is full during program 
entry, enter GOTO 2 as a direct com- 
mand, enter the number of the last 
line on screen and the screen is 
cleared leaving the last line. 


ON AN FUN 


ZIGGY 

SIM WAY OVERDUE 

FOR A VACATION II SO 

(BOOKER MYSELF ON THE. | 
N FLIGHT TO 


EXT Piatt 
` SILICON VALLEY ! 


"GRAPH-GRAPH" 


Input an equation containing - X or 
y or both and the computer will 
print a graph. For 2X/81-TS/1000 
Submitted by: ZX Users Group of New 
York. 


10 PRINT "INPUT AN EQUATION CONTAIN 
ING X OR Y OR BOTH" 

20 DIM W(2,64) 

30 INPUT Z$ 


60 FOR Y=0 TO 21 

70 FOR X=0 TO 42 

80 LET Z=VAL Z$*Y 

90 IF Z«W(2,X*Y*1) OR NOT Y OR X=42 
THEN LET W(2,X+Y+1) =Z 

100 IF Z2W(1,X*Y*1) OR NOT Y OR X=4 
2 THEN LET W(1,X*Y*1)-Z 

110 IF W(2,X+Y+1)=Z OR W(1,X+Y+1)=2Z 
THEN IF Z<44 AND Z»-1 THEN PLOT X*Y 


120 NEXT X 

130 NEXT Y 

140 SLOW 

150 PRINT AT 0,0;2$ 
160 GOTO 30 


Sample Run: 
SIN (X/13)*SIN (Y/6.5)*30 


"PATTERN" 


This program will produce different 
patterns on your Screen. Type it in 
I think you'll like it. 

From ZX USERS of Italy; Submitted 
by and with permission from the ZX 
USERS Group of New York. 


1 REM PATTERN 
10 RANDOMIZE 
20 FOR F=1 TO 20 
ETL SX `` 
40 NEXT F 
60 LET X-10 
70 LET Y=10 
80 LET A$-"W" 
100 LET X1=1 
110 LET Y1=1 
500 PRINT AT Y,X;" g" 
510 LET X1-X1-2*(X-30)*2*(X-1) 
520 LET Y1=Y1-2*( Y=20) +2*(Y=1) 
600 LET X=X+X1 
610 LET Y=Y+Y1 
620 PRINT AT Y-Y1,X-X1;A$ 
630 IF RND«.05 THEN LET Aj-" 8" 
640 IF RND«.0h4 THEN LET AS-" B" 
650 GOTO 500 


SAMPLE RUN: 


HHEEKEKKEKKEKEHEK HSH HSHK EH ES KE EHEE SSE 
“LONG ISLAND SINCLAIR TIMEX 
USERS GROUP PRESEHTS 
ZX-81 AND T51000 
TECHNICAL TIDBITS 
PART II ' 


"HEX-LOADING PROGRAM" 


This is a BIN/DEC/HEX conversion 
program. 

Created by: Paul W. Stuehn; Canton, 
MI. Ë d t 


10 LET X-30000 

20 LET A$-"" 

30 IF A$-"" THEN INPUT AS 

40 IF A$-"S" THEN STOP 

50 POKE X,16*CODE A$*CODE A$(2)-476 
60 LET X-X*1 

70 LET A$=A$(3 TO ) 

80 GOTO 30 

9490 REM 3 3€ 3€ 3€ 3€ 9€ 9€ 9€ 96 3€ 9€ 9€ 3€ 3€ 3€ 3€ 9€ 3€ 3€ 3€ 3€ 3€ 
9500 REM BIN/DEC/HEX CONV. PRGM. 
9510 LET Z-PI-PI 

9520 LET U-PI/PI 

9530 LET T=U+U 

9540 LET F=T+T 

9550 LET S=F*F f 

9560 PRINT AT F,Z;"ENTER NUMBER PRE 
FIXED:";TAB F;"B IF BINARY";TAB F;" 
D IF DECIMAL";TAB F;"H IF HEX" 

9570 INPUT I$ | 

9580 IF I$="" THEN STOP 

9590 LET T$=I$(U) 

9600 LET X-(T AND T$-"B")*(10 AND T 
$="D")+(S AND T$="H") 

9610 IF X=Z THEN GOTO 9570 

9620 CLS 

9630 LET D-Z 

9640 FOR A=T TO LEN I$ 

9650 LET D=D*X+CODE I$(A)-28 ! 
9660 NEXT A 

9670 PRINT "DEC HEX 
9680 LET E=D 

9690 FOR A=U TO F 
9700 PRINT AT T,10-A;CHR$ (CODE "Ó" 
*E-S*INT (E/S)) 


BINARY" 


9710 LET E-INT (E/S) 

9720 NEXT A 

9730 FOR A=U TO S 

9740 PRINT AT T,27-A;CHR$ (CODE "0" 
*D-T*INT (D/T)) 

9750 LET D=INT (D/T) 

9760 NEXT A 

9770 GOTO 9560 


9780 REM 3€ 3t 3€ 3€ 3€ 36 36 4E 3 3E 3€ 3E 3E JE 3€ + 9E E € $ EE 


'9790 REM **END OF BI/DEC/HEX ** 


9800 REM JC 3 309 4 te te E dE E A 3 JE FE E IE I dt 


9970 STOP 

9971 LET A=16509 

9972 INPUT S 

9973 PRINT S 

9974 LET L=256*PEEK A+PEEK (A+1) 
9975 IF L=S THEN RETURN 

9976 IF L=9970 THEN GOTO 9979 

rea LET A=A+4+PEEK (A*2)*256*PEEK ( 
A*5 


9978 GOTO 9974 

9979 PRINT S;"NOT FOUND" 

9950 PRINT "LAST LINE TO BE RENUMBER 
ED="; 

9981 GOSUB 9971 

9982 LET AE-A*3 

9983 PRINT "1ST LINE TO BE RENUMBERE 
D="; y 

9984 GOSUB 9971 

9985 PRINT "1ST NEW LINE NUMBER="; 
9986 INPUT N 

9987 PRINT N,"INCREMENT LINES BY:"; 
9988 INPUT I 

9989 PRINT I 

9990 IF A>AE THEN GOTO 9997 

9991 IF N>9969 THEN GOTO 9999 

9992 POKE A,INT (N/256) 

9993 POKE (A+1),N-256*INT (N/256) 
ON LET A=At+t4+PEEK (A*2)*256*PEEK ( 
A*3 3 

9995 LET N-N*I 

9996 GOTO 9990 

9997 PRINT ,,"RENUMBER COMPLETE" 
9998 STOP 

9939 PRINT ,,"CANT COMPLETE. LINE NR 
29969," 


Sample Run: 


ENTER NUMBER PREFIXED: 
B IF BINARY 
D IF DECIMAL 
H IF HEX 


CURVE program: 


1 REM ? COPY BORDER 


UB URL <>? COPY 8/7? BORDER GO 


UB VAL iX 


18 LET az58: DIM x (PQ): 
20): DIM bíi280): DIM ci(l180): 
d(1@0): POKE 23738,30: POKE 


1,231: GO TO 40 


20 INPUT “dicts 21copu 3)COnti 
nue "jt: IF t=1 THEN CLS 


30 IF tz8 THEN COP 


4@ INK @: INPUT C iii 


er Gistore 4)Quit" 
sa cO TO ifslaQl 
oa INPUT "tatal number 


: (8 
e IF 9:20 THEN INPUT 
= 


nates: xzs'";x,;" us";gy: 
130 FOR i=l TO nri 


1480 LET xlitex: LET yiis sy 
158 PLOT x,y: IF i=nj+1 THEN 


180 INPUT "next coordinates: 
a gre. I = ju ` 


190 GO SUB 518: GO TO Fe 
t glfi 


ead INPUT "llis 
both KIMM”; h 


x 


— 


210 IF h=5 THEN GO TO a8 


220 GO TO (200+h #30) 


230 CLS : PRINT "corner: 


240 FOR isi TO n41: PRINT 
ii")";TRB 10) x i); TAB 17;g 0i) 


258 NEXT i: Ga TO 200 
26@ INPUT "alter corner 
ir donel"';:i 


270 IF i28 THEN GO SUB S500: 


280 INPUT "new coordinates: 
i" ys"; gtil: GO TO 2608 


QXÍÉi). P 
2908 INK Z: PLOT 175,USR 


320 INK 7: PLOT 1785,U2R 
INK o: GO SUE 650: GO TO 
408 STOP 


P 


y 


ms (Tt 


2g... tru again:";:3: GO TO 118 


e LET nz3-1: INPUT "First C OXX" yes“ ya GO TO. 750 .,, 


x 


X 


TO fu FO T (fU DD FO TO fo na hs FO F0 FO FO FO TO FO n) fà fu fO FO fO 


sea CLs 

S180 LET cí(1)zsxí(1): LET dtl) sy ti 
S30 FOR €=2 TO a-1 

S480 LET js(íe-1))»;ia-1): LET bt 
zil- intr 

S50 FOR isl TO n 

Boe LET vu DER 
Ur 

S780 NEXT i 

S50 LET cíe)z8: LET d(ë) =Q 

S9@ FOR i=1 TO n41 

oa LET clelect@leblidex ti) 

61@ LET dí€)=d(ë)+b(i)*u (i) 

6280 NEXT i 

63@ NEXT e 

40 LET cíal!zxig): LET día!sygisg 
sa 


INPUT "Clcurve only Ffrarne 
' z$ 
ü IF z$="c" THEN GO TO 710 


56 
878 FOR isl TO n f 
eae 


PLOT xtil,uti) 
esa DRAN x(isli-xti),gtiei)-gti 


708 NEXT i 

718 FOR €=e TO a-1 

720 PLOT cle), dle} 

730 NEXT e 

740 PETTAN 

750 x4s255 ANS ER AND uis: 


7S AND. y>s8 THEN RETURN 


7860 INPUT "HEY!,..x«256, s9175! 


teg." 


1 REM contents: 


1 REM XXXXXXXEEXXNHMEHMXMXXXXXXX 
Y 


e715 1 
6716 255 
6717 23 
8718 17 
6719 31 
e?20 231 
6721 33 
6728 e 
6723 64 
& 724 237 
e?25 178 
6725 201 
67e7 1 
6725 255 
6723 ` 23 
E730 17 
6731 ni 
67232 Bed 
6733 33 
s 734 31 
6735 221 
6736 237 
6737 176 
s 738 201 


This is a sample 
of the Message 
Board. It types 
fast & is very 
Legible from far 
away ! 


Just the sort or 


thing to use if 
uou had trouble 


speaking. 


Sample of Message Board. 
Press any key x continue. 


HI BABE... WANT 
TO HAVE DIHHEF 
OUT TONIGHT? 
WILL CALL YOU 
LATER! ` 
LOVE...GEORGE 


Re-Ink Old Ribbons 


All it takes 
is a few minutes and a can of WD-40. 


Carefully remove the plastic cover of a 
spent ribbon cartridge. Keep the car- 
tridge flat to prevent the ribbon from 
falling out, and be especially careful not 
to disturb the assembly that moves the 
ribbon. Place the cartridge on top of 
several sheets of old newspaper. 


With the top of the cartridge femoved , 
spray the bunched-up ribbon with WD- 
48. Try for even coverage, but avoid 
soaking the ribbon. Leave the ribbon 
open for about a week. The capillary ac- 
tion. of the nylon fiber will absorb and 
distribute the lubricant, while evapora- 
tion will help remove any excess fluid. 


Carefully put the top of cartridge back 
on and snap it in place. You can use the 
cartridge immediately, though if. you 
wait another week , the lubricant will be . 
even more thoroughly. ; dispersed 
throughout the ribbon. Store the sprayed 
ribbon in a plastic bag to prevent further 
evaporation of the solvent. : gu RU hon 


I 5 a 1984 G.,Gcilder 


HE DID 


IT 


3 PRINT RT 20,0; INK 2; "Sampl 
e of Hessage Board. Press 
any key to continue.": PAUSE 9: 


LS 
4 PRINT RT 3,0; INK 3; “LARGE 
;' INK 2;TA 


d NK 1;"Type normal.. 
etters per LineALL letters & 
symbols are legal.Delete key wo 
rks. The buzz is L 
ike a margin beil and indicates 
the end of Line."''"press any k 
ey to start,": PAUSE @: CLS 
5 FOR y=@ TO 165 STEP 15: FOR 
xzà TO 240 STEP 15 
z 10 LET xsz2: LET us=2: LET cCs= 
2@ IF IHKEYs$:»"" THEN GO TO 28 
20 IF INKEYS$="" THEN ee TO 30 
40 LET d$=INKEY$: LET =ð 


45 IF CODE d$=12 THEN Go ° suB 4 
aee 
'90 LET as23385: POKE a,x: POKE 
a+i,y: POKE a+2,xs: POKE a+3,y5 
: POKÉ a+4,c8: LET a=at+4: FOR i= 
- TO LEN dí: POKE a+i,CODE d$íi) 
: NEXT, Ex POKE 84i,255: RANDOMIZ 
E USR 32256: 
as IF q THEN GO TO 20 
igaà NEXT x: BEEP 1,20: NEXT y 
4@@ IF x=8 THEN LET xz240: LET 


gzg-15 

405 LET x=x-15 

410 LET d$z" ": LET Qz1: RETURN 
5028 RESTORE 528: FOR a-40000 TO 
40020 


510 READ x: PORE a,x: NEXT 
Prd DATA 17.,.8,64,33,215,227, 
,197,6,0, 126,18, i9, 35, 16, 249 

$'i5,034 20i 

530 RETURN 


6, 1s 
’ 


9808 STOP 


9S00 SAVE #"samp.cod"CODE 58327, 
Mae SAVE x"iarge. cod" CODE 3225 
,e77: SAVE &"BIGTYPE" LINE 9919 
9610 LORD x"sampP.cod"CODE : LOAD 
xU Large.cod"CODE : GO SUB 5008: 
RANDOMIZE USR 48000 
9920 GO TO 1 
9999 REM THE PROGRAM ABOVE URS 
DEVELOPED WHEN, A FEW YEARS AGO 
I LOST HY VOICE FOR A RATHER 
EXTENDED PERIOD, THIS “BOARD" 
LITERALLY BECAME MY VOICE FOR 
ene WEEKS. THE “SAMP” COD.CODE 
IN LINE 28388 IS THE SAMPL 
MESSAGE ABOVE. IT CAN OF COURSE 
BE ANY ‘MESSAGE YOU CHOSE. 


-18- 


